Sub ver_errores()
    Dim nerr As Integer
    For nerr = 1 To 10
        Debug.Print ("Num. error(" & nerr & ") Descripcin (" & Error(nerr) & ")")
    Next nerr
End Sub
